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IDENTIFICATION: 

SEL 8 1OA ss Reference Program 

AUTHOR: 

Systems Engineering Laboratories 

ACCEPTED: 

January 22, 1969 

PURPOSE: 

To provide a cross reference for assembly language pro¬ 
grams on the SEL 810A, 

COMPUTER 

CONFIGURATION: 

SEL 810A with a Card Reader, Line Printer, and 

ASR-33, with the standard interrupt for the card reader. 

SUBROUTINES 

REQUIRED: 

None 

STORAGE: 

1504g + remainder of core for tables to process above 
program. 

TIMING: 

N/A 

LOADING 

PROCEDURE: 

Standard SEL 810A/B relocatable loader. Catalog Number 
300001. Program must be loaded above '1016. 

USE: 

Start the program at the relocation base with the desired 
sense switch settings. 


If any sense switch is set, there will not be a card listing 
on the line printer, just the cross reference. 


If the sense switches are not set there will be a card 
listing and a card number printed out. 


The sense switch option may be set or reset at any 
time. 
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METHOD: 

The following figures show how the tables are set up in memory and a core dia¬ 
gram as to how the tables expand through core. 

External Name Block 



A = Sign bit is reset until the name is output. 

B = Sign bit is set to flag an external. 

Cl-6 = Characters one to six of the external name. Blank if name 
is shorter than six characters. 

First String = Address of the beginning of the number string. 

Next Zero = Address of the end of the string for that name. 

4 Character Name Block 
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METHOD: (Cont'd) 

A = Sign bit reset until output. 

B = Sign bit reset to flag non-external. 

C 1-.4 = Characters one to four of the non-external name. Blank if 
name is less than four characters. 

First String = Address of the beginning of the number string. 

Next Zero = Address of the end of the string for that name. 

String Words Block 
C 



A = Card Number. 

B = Zero if A is the last time that name has been referenced, or 
B is the address of the next string block if A is not the last 
time that name has been referenced. The address in B 
points to the next card .number (in A). 

C = Sign bit of the card number is reset (0) if name was in the 
variable field. Sign bit is set (1) if the name is located at 
that card number. Name occurred in columns 1 to 4. 
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METHOD: (Cont'd) 

A 

B 


C 
D 

A = Top of Core 

B = Start of the string table. ’2 000 was subtracted from the top of 
core so that the loader would not be destroyed. 

C = Low core where the name table begins. Low core is one 
location after the program. 

D = Map zero and the program, which is this case was loaded at 1 1017. 

Note the directions of the arrows. The name table builds up and the string table 
builds down through core. When these tables meet,the cross reference at this 
point is output and the program resets the table and string pointers and finishes 
processing the remainder of the cards. An END card signals the end of the program 
and the cross reference is output. 
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METHOD: (Cont'd) 


Batch processing is available. A dollar ($) sign in column one and a blank in 
column two cause the program to halt; pressing start reinitializes the program. 

The sorting method is a minimum value search on two characters at a time, and 
the name with the smallest numerical alphabetical value is output first. The 
sorting takes place while the previous name is being printed. 

NOTE 

Macro names with an n EN" in columns six and seven are 
processed as an END card. 

Macro names with a "CA" or n NA ,r in columns six and seven 
are processed as Externals. 

If the word "ERROR 11 is printed out with the card listing, a name used was more 
than four characters and not an external; the card is not processed from that name 
on. 


The variable field must start in column eleven. A blank in column eleven will 
terminate the variable field. 

Interrupts 


This program uses the standard interrupt on the card reader to read each charac¬ 
ter and convert it to full ASCII code and store it in the input-output buffer. 

The program uses another input routine to read the characters from the buffer. 

If the character needed has not been read, the program stays in a compare loop 
until the character has been read by the interrupt routine. 
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METHOD: (Cont'd) 

The time between reading characters is used to process the names read in and 
set up the strings in core. Therefore, the program may be processing columns 
one to four and may be reading in column six. 

When the interrupt routine reaches the end of a card, the card output option is 
checked. If the cards are to be listed the program will run at the speed of the 
slowest peripheral. 

While a card is being printed the next card is being read and processed. 
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02100766 


LBA 

TABP 

0264 

00402 

00000020 


ASC 


0265 

00403 

03400000 


STA 

0,1 

0266 

00404 

02100767 


LBA 

GGG1 

0247 

00408 

04590743 

— 

LA-A— 

CAA0*80,1 

0268 

00406 

44100770 


IMS 

CHAR 

0269 

00407 

11100415 


8RU 

PNl 6 

0270 

00410 

00001016 


LSL 

B 

0271 

00411 

05000240 


AHA 

*-’240 

0272 

00412 

00000020 

PNI7 

ASC 


0273 

03443- 92400746-- 

-- 

-taA- 

y^gp _ 

0274 

00414 

11100344 


BRU 

PN 15 

0275 

00415 

00001016 

PNI6 

LSL 

8 

0276 

00416 

05500764 


AMA 

CARD+83,1 

0277 

00417 

14100770 


IMS 

CHAR 

0278 

00420 

11100422 


BRU 

PNI 8 

0279 

00424- 4140044-2- 

— 

ARU- 

--2N47.. 

0280 

00422 

04100767 

PN18 

STB 

G8G1 

02 ai 

00423 

02100766 


LBA- 

TABP 

0282 

00424 

03400001 


STA 

1*1 

0283 

00425 

02100767 


LBA 

3QG1 

0284 

00426 

01100771 


LAA 

EXTF 


QQ427 

QQQQQQ22 


SAT 


0286 

00430 

11100276 


BRU 

FFF1 

0287 

00431 

01500765 


LAA 

CARO+84,1 

0288 

00432 

l4 1 00770 


IMS 

CHAR 

0289 

00433- 

11100441 


BRU 

PHI 9 

0290 

00434 

00001016 


LSL 

8 

0291 

00435-05000240 

..AMA_t».240_ 

0292 

00436 

00000020 


ASC 


0293 

00437 

02100766 


LBA 

TABP 

0294 

00440 

11100354 


BRU 

PNU-2 

0295 

00441 

00001016 

PnI? 

LSL 

8 

0296 

00442 

05500766 


AMA 

CARD*85,1 

0297 

00-4.43. 

.11100-436— .BALL. 

_PiU9-3_. 

0298 

00444 

00000000 

• ft* 



0299 

00444 

00000000 

ft**# 



0300 

00444 

00000000 

A I PA 

HLT 










CRtfSS REFERENCE PROGRAM ;;AT. 3700058 

TABLE POINTER . 


CHARACTER NO. 3 

TURN SIGN BIT OFF-NAME 

CHARACTER N0-. 4 


LEAVE SIGN BIT SET - EXTERNAL 

CHECK EXTERNAL FLAG 

N0T SET-ERR0R-NAME T0 LONG 

N0 ERROR .. ... 

CHARACTER NO. 5 


CHARACTER N0. 6 

INTERRUPT ROUTINE F0R CHARACTERS 















o 


o 


1 

PAGE ( 

3009 




0301 

00445 

03101000 


ST A 

HX7 

0302 

00446 

04101001 


STB 

HX8 

0303 

0044 7 

00170304 


AI P 

4, W 

0304 

00450 

15100610 


CMA 

C028 

0305 

00451 

1A10045 4 


-BRU. _ 

ft +3-. . 

0306 

00452 

0U00606 


LAA 

P60P 

0307 

00453 

15100611 


C ma 

C01 

0308 

00454 

11100457 


BRU 

*♦3 

0309 

00455 

01100607 


LAA 

P-7 OP 

0310 

00456 

15100612 


c m a 

CC28 

03U 

00457 

14100464 


. BRU. 

- *-*2- - 

0312 

0046q 

QU006o5 


LAA 

P50P 

0313 

00461 

02000000 


LB A 

*0 

0314 

00462 

04101002 


STB 

TS2 

0315 

00463 

00000714 


FRL 

7 

0316 

00464 

00000022 


SAZ 


0317 

00465 

11100543- 


-BRU. 

HX2. 

0318 

00466 

01101002 

HX1 

LAA 

TS2 

0319 

00467 

00000216 


LSL 

2 

0320 

004 70 

00000030 


00A 


0321 

00471 

02000000 


LBA 

*0 

0322 

00472 

00000112 


FRA 

1 

0323- 

0047 3-00000005 

- _ 

_Iabl_. 

. .. . 

0324 

00474 

02500567 


LBA 

HSAT , 1 

0325 

00475 

00000022 


SAZ 


0326 

00476 

00001013 


FLL 

8 

0327 

004 77 

00000003 


CLA 


0328 

00500 

00001013 


FLL 

8 

0329 

00501 

02100774 

HX5- 

LEA¬ 

- CO LO- - 

0330 

00502 

03500761 


ST A 

CARD+00 

0331 

00503 

14^00774 


IMS 

C0LC 

0332 

00504 

11100537 


BRU 

HX9 

0333 

00505 

00000031 


LCS 


0334 

00506 

00000022 


SAZ 


0335 

00507 

11100527- 

. 

BRU 

.. WX6-. 

0336 

00510 

00130105 


CEU 

5 » W 

0337 

00511 

00000200 


UATA 

•200 

0338 

00512 

00130105 


CEU 

5» W 


o 


o 


O o 


810 A CRkJSS REFERENCE PROGR AM j AT, 3700058 

SAVE A-REG 
SAVE B-REG 

INPUT A CHARACTER AND CONVERT 
0-2-8 T0 FULL ASCII 

•6000 

0-1 

•7000 

12 - 2-8 

•5000 


.BUFEER-OilLBMN- EjtUHI-ER_ 

1 STORE CHARACTER IN BUFFER ' 

NOT ZERO EXIT 

LOAD C0NTR0U SWITCHES 

FOR PRINT OPTION 

—.-.-oa-Rar-PRiNJ -card____ 

PRINT CARO 

CLEAR .. 





1 PAGE 0010 

0339 00313 00002100 

q34o 00^14 0ll00^34 
0341 00315 12101066 

0342 00516 35600613 

0543 0051-7,-030 77 6 3 2- 

0344 00520 01500761 

0345 00521 00001016 

0346 00522 00170105 

0347 00523- 00000026 

0348 00524 11100520 

0349 00525-00 1- 30 40 5-- 

0350 00526 00000400 

0351 00527 01100772 HX6 

0352 00530 00000035 

0353 00531 00000022 

0354 00532 11100535 

0355 00533 - 000 0 0036 -- 

0356 00534 35401152 

0357 00535 00000036 

0358 00536 35400035 

0359 00537 0410100a HX9 

0360 00540 02101001 

0362 00542 11300444 

0363 0054J 00000024 HX2 

0364 00544 11100550 

0365 00545 00000146 

0366 00546 14101002 

0357.00 54 7-411 00 543- 

0368 00550 00000006 HX 3 

0369 00554 45000004 

0370 00552 41100554 

0371 00553 04000003 

0372 00554 00000006 

0373- 00535-0 0 0 0 0 11 6- 

0374 00556 00000022 

0375 00557 11100456 

0376 00560 05101002 


OAT A 

LAA 

SPB 

DAC 

LSA 

* 2100 
CCNT 

CBNV 
CNVT.l 
t-i n? 

LAA 

CNVT 4.102 

LSL 

8 

A0P 

5,W 

IBS 

BRU 

• -4 

. CE-U- 

- 

DATA 

*400 

LAA 

ENOF. 

TOI 

SAZ 

BRU 

#♦3 

-.LOB. 


OAC 

BBSS 

L0J8 

OAC 

CCCC 

LAA- 

HX7 

LBA 

TOI 

HX8 

BRU» 

AI PA 

... SAP. 


BRU 

HX 3 

LSL 

1 

IMS 

TS2 

-ttfiU.- 

~HX2. 

IAB 

CMA 

«4 

BRU 

#♦2 

LAA 

*3 

IAB 

LSL 

_ 

SAZ 

BRU 

HXl 

ama 

TS2 


18 


O 


B10A CROSS REFERENCE PROGRAM 


(AT. 3700058 


DECIMAL CONVERTER NO. I N- 

WHERE TO PUT NUMBERS < NOTE INDEy BIT SET) 


1 

OUTPUT CARD 


END CARO- f LAO CHECK- 
TURN OFF INTERRUPT 

END FLAG NOT ON 
—.---8H0- FL A G IS - 04- 


READ ANOTHER CARD 

RESTORE- A-REG . 

RESTORE 8-REG 













o 


o 


o 


o 


0377 

0378 

0379 

0379 

0379 

0379 

0380 

0380 

0380 

0380 

0388 

0381 

0381 

0381 

0381 

0381 

0382 

0382 

0382 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

039? 

0393 

0394 

0395 

0396 

8397 

0398 

0399 

0400 


O o 


PAGE 0011 
00561 05500563 
00562 11100501 
00563 00000261 HX4 
00564 00000322 

08565 88888312. 

00566 00000301 
00567 00120260 H$AT DATA 
00570 00126641 
00571 00125677 
00572 00157257 
00573- 08436854 
00574 00122256 
00575 00123650 
00576 00125251 
00577 00135243 
00600 00156733 
88601 00137334 
00602 00135674 
00603 00148242 
00604 00140337 
00605 00005008 P5OP 8AT A *5800 
00606 00006000 P60P DATA *6000 

80607- -88887-000- P7-QP.UAlA-J 7-888--.. 

00610 00001202 C028 DATA *1202 
00611 00081400 C01 UATA *1400 
00612 00004202 CC2« DATA *4202 
00613 00000014 CNVT BSS 12 
00627 00000012 NM8H BSS 10 
006-41 08808322- CAPO ttS£. 82 
00763 00000000 »*••#•••*••••« 

08763 00000000 HIGH HLT 
00764 00000000 CCNT HLT 
00765 08000000 STRN HLT 
00766 00000000 TABP HLT 

88767 QO OOO Q QO G O G) HLT ...- __ 

00770 00000000 CHA« HLT 
00771 00000000 ExTf HLT 
00772 00000000 ENDF HLT 


* 1482-42., »140337. K HU— 1^2 27 8 9 


NAME AMU CARD COUNT 

XR6F NUMSgRS START HERE THROUGH CARD 
CARXL-CMA3A8IER- BUFFER_._ 

XREF H46H6ST LOCATION 
CARO COUNT 
STRING POINTER 
TABLE POINTER 

— ST ORAGE ___ 

CHARACTER COUNT (NAMES) 

EXTERNAL. FLAG OR ST0&A8E...- 

END FLAG 


810A CROSS REFERENCE PROGRAM n A T♦ 370005B 

AMA HX4»l 
BRU HX5 

DATA *261,*322,*312,*301 


*120260,*126641,*125677,*157257,*136654 


DATA *122256,* 123650,* 125251,* 135243,* 156733 


DATA *137334,»135674 













1 PAGE 0012 

0401 0077 3 00000000 DELF HLT 

0402 00774 00000000 C^LC h LT 

0403 00775 35400444 DAC3 UAC AIPA 

0404 00776 00000000 C0LL HLT 

. 0405- 00777 QOQOOOOQ- SAXt- HU-- 

0406 01000 00000000 HX7 HLT 

0407 01001 OOOOQOOO HX6 HLT 

(g 0408 01002 00000000 TS2 HLT 

0409 01003 00000000 CKNT HLT 

I 0410 01004 01100771 LAA EXTF 

0411 01005 00000022--SA Z -- 

0412 01006 16000001 AMB *1 

0413 01007 16077773 AMB *»5 

0414 01010 04100766 STB TA9P 

0415 01011 01400000 LAA 0,1 

0416 01012 03101145 STA CKN1 

0417 01013-01400001 --LAA—1,4.- 

0418 01014 03101146 STA CKN2 

0419 01015 01400002 LAA 2,1 

0420 01016 03101147 STA CKN3 

0421 01017 02101503 L8A- LOH 

0422 01020 11101031 SRU CKU 

.0423. 01021-01400 00 0- C KN6 .LA A -0*1- 



0424 

01022 

15101145 

DMA 

CKN1 


0425 

01023- 

11101025 

HBU 

CKN4 


0426 

01024 

11101042 

BRU 

CKN5 


0427 

01025 

01400001 CKN4 

LAA 

U 1 


0428 

01026 

00000024 

SaF 



0429 

01027- 

_X6QOOQQ1-- 

AMB 

_tl~. . 


0430 

01030 

16000004 

AMB 

*4 


0431 

01031 

00000004 CX11 

tBA 


11 

0432 

01032 

15100766 

DMA 

TABP 


0433 

01033 

11101021 

BRU 

CKN6 


0434 

01034 

01100771 

LAA 

EXTF 


0435 

01035 Q00QP022 _ 

-SAT.. 



0436 

01036 

16077777 

AMB 

s-i 


0437 

01037 

16000005 

AMB 

*5- 


0438 

01040 

04100766 

STB 

TABP 


O 


810A CROSS REFERENCE PROGRAM n A T. 3700058 

delimiter flag 

C0LUME c 0 UNT PN c A «OS 

InTERRUP address 


storage 

A- «0, 8* NEXT TABLE- ENTRY 


NAME 

EXTERNAL- NAME 

BACK UP TABLE POINTER 

CHARACTERS 1 AND 2 


CHARACTERS 3 AND 4 

CHARACTERS 5 AND 6 IF EXTERNAL! 
LOW CORE-- 


CHECK FIRST TW0 CHAR. 

N0T EQUAL ^ CHECK NEXT NAME_ 

EQUAL 

NAME 0R EXTERNAL CHECK 

_EXTERNAL_ 

NAME 

CHECK FOR- END 0F TABLE:_ __ ___ 

N0T END - M0RE NAMES- 
END 


ENTER NEW NAME 


O 










o 


o 


1 PAGE 0013 


0439 

01041 

11301003 


BRU# 

CKNT 

0440 

01042 

01400001 

CKN® 

LAA 

la 

0441 

01043 

15101146 


cma 

CKN2 

0442 

01044 

11101026 


BRU 

CKN4 + 1 

0443 

010-4 5 11101047 

.. 

.-BRU- 

CKN7 . 

0444 

01046 

11101026 


BRU 

CKN4#1 

0445 

01047 

00000024 

CKN7 

SAP 


0446 

01050 

11101057 


BRU 

CKNB 

0447 

01051 

01100765 

CK10 

LAA 

STRN 

0448 

01052 

05000002 


ama 

*2 

0449 

04053- 

03600003 

-- 

SXA* 

- 3-r 4- 

0450 

01054 

06000001 


SMA 

*1 

0451 

01055 

03400003 


ST A. 

3a 

0452 

01056 

11301003 


BRU* 

CKNT 

0453 

01057 

044000Q2 

CKNB 

LAA 

za 

0454 

01060 

15101147 


CMA 

CKN3 

0455 

04061-11101025- 

.. 

aau. 

■CKN4. 

0456 

01062 

11101064 


BRU 

CKN9 

0457 

01063 

11101025 


BRU 

CKN4 

0458 

01064 

16000001 

CKN9 

AMB 

= 1 

0459 

01065 

11101051 


BRU 

CK-10 

0460 

01066 

00000000 

C0NV 

hlt 


0461 

Q1P&7 

P31Q1142 


STA 

T SI_ 

0462 

01070 

04101432 


STB 

STM8 

0-463 

o*on 

0^00000® 


LBA 

»5. 

0464 

01072 

04101143 


STB 

TS3 

0465 

01073 

01101066 


LAA 

C0NV 

0466 

01074 

05040000 


AMA 

*’40000 

0467 

01075. 

03101066- 

_ 

-STA_ 

.00 NV. 

0468 

01076 

01101142 


LAA 

TS1 

0469 

01077 

00000023 


SAN 


04 70 

01100 

11101105 


BRU 

C0N1 

0471 

01101 

00000020 


ASC 


0472 

01102 

03101142 


STA 

TS1 

0473- 

- 04103- 

01Q0Q252 

_ _ 

-LAA- 

-8-L25 2- — 

0474 

01104 

1110U06 


BRU 

*♦2 

0475 

OllQS 

01000240 

C0H1 

LA A 

a » 240 

0476 

01106 

02000000 


^8 a 

*0 


CROSS REFERENCE PROGRAM :;AT, 3700058 

CHECK SECOND TWO CHAR, 



SET ENTERANCE FOR TH0- L£VEL- .- 

INDIRECT ANO INDEX 0N LAST L'lNK 


CHECK. FOR LOCATION FLAG 

TURN- OFF, L0CAT10N FLAG- 
AND C0NVERT 











PAGE 0014 

0477 01107 03301066 

0478 OHIO 02101142 
0479 01111 00000003 

0480 01112 10000012 

0-401 01113- 03101142- 

0482 01114 00000022 

0483 01115. 11101137 

0484 01116 00000004 

0485 01117 00000022 

0486 01120 11101140 

04 87 Ot l 2i 0*000240-- 
04 88 01122 02101143 

0489 01123 03301046 

0490 01124 00000004 

0491 01125 06000001 

0492 01126 03101143 

0+93 01107 0000002 2- 

0494 01130 11101110 

0495 01131 02101432 

0496 01132 01101066 

0497 01133 05040000 

0498 01134 03101066 

0499 - 011 3 3 14 101044- 


C0N4 


STA* 

LBA 

CIA 

DIV 


CONV 

TS1 


C0N3 


C0N2- 


C0N2*1 
-*-’-24-0— 
TS3 


STA* 

GONV 

TBA 


SMA 

»1 

STA 

TS3 

saz 


BRU 

C0N4 

LBA- 

SYMB 

LAA 

CONV 


b_» 140000 
CONV 


0500 

01136 

11301066 


BRU* 

CONV 

0501 

01137 

00000004 

C0N2- 

TBA 


0502 

01140 

05000260 


ama 

*•260 

0503 

01141 

11101122 

. . - 

BRO 

COM3 

0504 

01142 

00000000 

TS1 

HLf 



0506 01144 00000000 STNF Hit 
0507 01145 00000000 CKNl. HLt 
0508 01146 00000000 CKN2 HLT 
0509 01147 00000000 MLJ 
0510 01150 njri OaQ 

0512 01152 02077632 BBBB LBA 
0513 01153 01000240 LAA 
0514 01154 03500761 STA 


*-102 
* * 240 

CNVT*102,1 


CROSS REFERENCE PROGRAM r; A T. 37q0058 

STORE- LOCATION FLAG t* OS BLANK y 
CONVERT BINARY NUMBER 
T0 5. ASCII CHARACTERS 


STORING INDEX 

STORE CONVERTED NUMBER- 

DECREMENT INDEX 


N0T DONE 
RESTORE- B-REG 

RESTORE- EXIT 

















o 


o 


1 PAGE 0015 


0515 

01155 

00000026 

IBS 


0516 

01156 

11101154 

BRU 

*-2 

0517 

01157 

12101453 

SPB 

EXTR 

0518 

01160 

01077777 

bbbo laa 

3* 77777 

05-19 

04 464- 03401145 - 

-S-tA. 

-CKN4 - 

0520 

01162 

02101503 

LBA 

LOW 

0521 

01163 

01400001 

BBB4LAA 

1*1 

0522 

01164 

00000024 

SAP 


0523 

04165 

11401174 

BRU 

BBBX 

0524 

01166 

16000004 

AMB 

*4 

0525 

04147 

QQQftQQfl4 BRR3 TBA_ 

W V V vV v V ’ ^ U t u 

-— . — 

0526 

01170 

15100766 

CMA 

TABP 

0527 

01171 

11401163 

BRU 

8 SSI 

0528 

01172 

11101230 

BRU 

B8B2 

0529 

01173 

11101230 

BRU 

BB82 

0530 

01174 

01400000 

BBBX LAA 

0,1 

05-34 

04475 

QQQQQQ23 

irvinrinriErw“ 

- - SAN 

—.. - 

0532 

01176 

11101201 

BRU 

BBB4 

0533 

01177 

16000005 

BBB7 AMB 

*5 

0534 

01200 

11101167 

BRU 

8BB3 

0535 

01204 

15104145 

BBS4 CMA 

CKN1 

0536 

01202 

11101220 

BRU 

9SB5 

0537 

. 04203-41404205- 

_ -HSU_9886 -- 

0538 

01204 

11101177 

BRU 

B887 

0539 

01205 

01400001 

BBS* LAA 

1,1 

0540 

01206 

00000020 

ASC 


0541 

01207 

15101146 

CMA 

CKN2 

0542 

01210 

11101223 

BRU 

8889 

0543- 

0124.^11101213- 

_ m 

SB BS. 

0544 

01212 

11101177 

BRU 

BB87 

0545 

01213 

01400002 

BBB8 LAA 

2-, 1 

0546 

01214 

15101147 

CMA 

CKN3 

0547 

01215 

11101225 

BRU 

BB10 

0548 

01216 

11101177 

BRU 

B887 

0549 

01247 

11101177 

. . ... BRU 

988 7 . 

0350 

01220 

03101145 

B8B5 STA 

CKNl 

0551 

01221 

01400001 

LAA. 

1,1 

0552 

01222 

00000020 

ASC 



O 


o 


alOA CROSS REFERENCE PROGRAM 


AT. 3700058 


TYPE BUT EXTERNAL HEADING 
MAX P0S, NUMBER T0 START 
_H4N--SiA^CH- BT’_SXT£A4AL- -ThM 
LOW C0RE 


CHECK FOR EXTERNALS ONLY 

EXTERNAL 

NAME 


CHECK FOR END 0F TABLE 
NOT END C0NTINU6- 
END 


B EEN O UTP - UTT SO--T-6-4.-- 

NO 

YES 



CHAR. 1 AND 2 LESS THAN 
PREY 1 BUS- CHAR. 1- AND 2 - 















1 

PAGE 0016 




0553 

01223 

03101146 

BBBV 

STA 

CK.N2 

0554 

01224 

01400002 


LAA 

2,1 

0555 

01225 

03101147 

BB10 

STA 

CKN3 

0556 

01226 

04101150 


STB 

MIN 

0557 

01227—4-1101177- 

— 

BRU- 

-BB.B7- 

0558 

01230 

01101145 

BBB2 

LAA 

CKN1 

0559 

01231 

15077777 


CMA 

* * 77777 

0560 

01232 

11101234 


BRU 

BB11 

0561 

01233 

11101255 


BRU 

8B12 

0562 

01234 

02101150 

BBU 

LBA 

MIN 

0563 

01235- 

01-40X1000 

. __ 

LAA 

-XXrl- 

0564 

01236 

00000020 


ASC 


0565 

01237 

03400000 


STA 

0,1 

0566 

01240 

03100614 


STA 

CNVT+1 

0567 

0i24i 

000010*5 


KSL 

B 

0568 

01242 

03100613 


STA 

CNVT 

0569 

01243 

01400004 

.. 

irAA- 

1 rt - 

0570 

01244 

03100616 


STA 

CNVT+3 

0571 

01245 

00001015 


RSI 

8 

'j|1 0572 

01246 

03100615 


STA 

CNVT*2 

0573 

01247 

01400002 


LAA 

2,1 

0574 

01250 

03100620 


STA 

C-N V T ♦ 5 

0575 

0-1 £51 00001015 

.- R5L- 

_8_. 

0576 

01252 

03100617 


STA 

CNVT 4.4 

0577 

01253 

12101351 


SPB 

SI-NQ 

0578 

01254 

11101160 


BRU 

BBB0 

0579 

01255 

12101432 

BB12 

SPB 

SYMB 

0580 

01256 

01077777 

xxxo 

LAA 

s* 77777 

0551 

01257 

03181145. 

. . 

SJA_ 

OJtNl. 

0582 

01260 

02101503 


LBA 

L0W 

0553 

01261 

01400000 

xxxi 

LAA. 

0,1 

0584 

01262 

00000023 


SAN 


0585 

01263 

11101275 


BrU 

XXX2 

0586 

01264 

01400001 


LAA 

1,1 

0587 

012-65- 

00000023- 

__ 

SAN 

____ . .. 

0588 

01266 

16077777 

XXX5 

AMB 

■ -1 

0589 

01267 

16000005 


amb 

s5 

0590 

T: 

01270 

00000004 


f BA 




A CR0SS REFERENCE PR0GRAM c. AT, 370005B 

CHAR 3 AND 4 LESS. THAN. 

PREVI0US CHAR 3 AND 4 


CHAR’S TABLE P0INTER 


AMY EX-TEAHALS LEFT 
YES 

NU - D8 NAMES tSYMBOLICS! 
MINIMUM TABLE NAME 


SET NAME T0 OUTPUTTED 
M0DE 

STgHE NAME IN BUFFER- 


STftlMS. aUIUPUT LOCATIONS. 

\ 

TYPE BUT SYMBOLIC HEADING 

set. m- max*-E0s* -Niiaata_ 

L0W C0RE 

BEEN 0UTPUTTED YET 

N0 

YES 


SYMB0LIC 

EXTERNAL- 





o 


o 


o 


o 


Q> ° 


810A CROSS REFERENCE PR0GRAM rAT. 3700058 

CHECK PUR END 0P. TABLE 
N0T END 
END 

. CHAR- 4 A-NO 2- CHECK—.- ’--- - 

LESS 

EOUAL 

GREATER 


1 

PAGE 0017 



0591 

01271 

15100766 

CMA 

TABP 

0592 

01272 

11101261 

BRU 

XXXI 

0593 

01273 

11101313 

BRU 

XXXX 

0594 

01274 

11101313 

BRU 

XXXX 

0595 

01275 

45101145 

XXX2- CMA 

CKN4. 

0596 

01276 

11101306 

BRU 

XXX3 

0597 

01277 

11101301 

BRU 

XXX4 

0598 

01300 

11101266 

BRU 

XXX5 

0599 

01301 

01400001 

XXX4 LAA 

1*1 

0600 

01302 

15101146 

CMA 

CKN2 

0601 

01303- 

11101310 

.MRU- 

XXX6- 

0602 

01304 

11101266 

BRU 

XXX5 

0603 

01305 

11101266 

BRU 

XXX5 

0604 

01306 

03101145 

XXX3 STA 

CKN1 

0605 

01307 

01400001 

LAA 

1,1 

0606 

01310 

03101146 

XXX6 STA 

CKN2 

0607 

01611 

04101150 

STB 

MIN 

0608 

01312 

11101266 

BRU 

XXX5 

0609 

01313 

01101145 

XXXX LAA 

CKN1 

0610 

01314 

15077777 

CMA 

*•77777 

0611 

01315 

41401334 

BRU 

XXX7 

0612 

01316 

01100772 

LAA 

ENOF 

06li 

04347 

00000022 

__SAZ— 

___ 

0614 

01320 

11101324 

BRU 

# + 4 

06i5 

01321 

01100777 

LAA 

SAVE- 

0616 

0132? 

Q 3 QOIOI 6 

sta 

*1016 

0617 

01323 

11100000 

BRU 

66EE 

0610 

01324 

01100763 

LAA 

HIGH 

0619 

01325 

0340076.5 

. STA 

S-IRN. 

0620 

01326 

01101503 

LAA 

L0W 

0621 

01327 

03100766 

STA 

TABP 

0622 

01330 

00000031 

LCS 


0623 

01331 

00000022 

SAZ 


0624 

01332 

11100042 

BRU 

CCC1 

0625 

01333. lilQ0033_ 

.-.MRU_ 

CCC3- .... 

0626 

01334 

02101150 

XXX/ LBA 

MIN 

0627 

01335 

01400000 

LAA 

0*1 

0620 

01336 

00000020 

ASC 



CHECK CHAR. 3 AND 4 

L-6-SS----- 

EOUAL 

GREATER 

CHAR. 1 AND 2 LESS THAN 
PREVIOUS CHAR 1 AND 2 
CHAR. 3 AND 4 LESS THAN 

PREVINS. CHAR- 3—AND.4._.-.... 

SET TABLE P0INTER T0 MIN ANO CONTINUE 
CHECK FOR END 0F- TABLE- 


NOT END 

END - LOAD END CARD FLAG 


N0T SET 

SET - RESTORE WERRilPJ LoCA-TIo*. 

s 


RESET STRInG POINTER 

RESET TABLE POINTER 

CHECK FOR PRINTOUT OF 
CAROS- 

N0 - NO TOP OF FORM 

-.—■TflP..,0F...F0RH: 

MINIMUM TABLE NAME 
















1 

PAGE 0018 




0629 

01337 

O 34 OOOOO 


STA 

0*1 

0630 

01340 

03100614 


STA 

CNVT+1 

0631 

Oi34l 

0000^015 


RSL 

B 

0632 

01342 

03100613 


STA 

CNVT 

06 J3 

01343- 01400604 

—.. 

LA A_ 

-1*4— - 

0634 

01344 

03100616 


STA 

CNVT *3 

0635 

01345 

00001015 


RSL 

a 

0636 

01346 

03100615 


STA 

CNVT+2 

0637 

01347 

12101351 


SPB 

STNG 

0638 

01350 

11101256 


SRU 

XXXO 

0639 

01351 

QQQOOOPO STNO HLT 

-- 

0640 

01352 

02101150 


LBA 

MIN 

0641 

01353 

01400001 


LA A 

1,1 

0642 

01354 

00000024 


SAP 


0*43 

0 1355 

16 00000 1 


AMS 

*1 

0644 

01356 

02400002 


LBA 

2*1 

0646 

01357- 

01077767 

STN2-LAA— 

**»-9- - 

0646 

01360 

03101453 


STA 

EXTR 

0647 

01361 

01101151 


LAA 

0AC4 

0648 

01362 

03101365 


STA 

DAC2 

0649 

01363 

01400000 

S-TN3 

LAA 

0*1 

0650 

01364 

12101066 


SP8 

00 NV 

065-1 

Q136$ 354QQ6P7 

DAC2 

-UAL— 

mmbr_ 

0652 

01366 

16077777 


AMS 

*-l 

0653 

01367 

01400000 


LAA 

0 * 4 . 

0654 

01370 

00000022 


SAZ 


0655 

01371 

11101421 

.._ — 

SRU 

STN1 

0656 

01372 

03101144 


STA 

STNF 

0657 

01373- 

P0j,3QlQ5 

-&TN4-CEU- 

-5^l .- 

0658 

01374 

00000200 


data 

*200 

0659 

01375 

00130105 


CEU 

5*W 

0660 

01376 

00002100 


UAT A 

»2l00 

0661 

01377 

02077632 


LBA 

*-102 

0662 

01400 

01500761 

fill 

LAA 

CNVT+102 

0663 

04404- 

00001016_- 

-LSI— 

-8---. 

0664 

01402 

00170105 


A0P 

5* W 

0665 

01403 

00000026 

- 

IBS. 


0666 

01404 

11101400 


SRU 

FILL 


810A CROSS REFERENCE PR0GRAM 
STORE NAME IN SUFFER. 


OUTPUT CARD NUMBER STRING 
MIN 4 TABLE NAME^ 11 ^ 


EXTERNAL 

NAME-QET FIRST STRING LOCATION 

OUTPUT COLUMN COUNTER 

RESET WHERE FIRST NUMBER GOES 
LOAD FIRST NUMBER 


PICK-UP NEXT STRING LOCATION. 
CHECK FOR END OFi STRING 

NOT END OF STRING .... 

SET STRING FLAG 

CLEAR PRINTER BUFFER 

UP ONE LINE-FILL SUFFER 


OUTPUT SUFFER 








o 


4 




1 PAGE 0019 810A CROSS REFERENCE PROGRAM r.AT. 3700058 

0667 01405 00130105 CEU 5,W PRINT 

0668 01406 00000400 OATA *400 

0669 01407 02077632 LBA *-io2 

0670 01410 01000240 LAA s*240 

06-71 01411 03500761.— -STA. -&NVT*408rl -OLgAR- OOF^-g-R--- 

0672 01412 00000026 IBS 

0673 01413 111014H BRy »-2 

0674 01414 01101144 LAA STNF CHECK STRING FLAG 

0675 01415 00000005 TAB 

0676 01416 00000022 SAZ 

0677 01417 11101357 600-&TN2 -- N0T EN D OF S7ft4-M4- 

0678 01420 11301351 BRU* STNG END - GO BACK 

0679 01421 00000005 STNI TAB 

0680 01422 14101453 IMS 6XTR CHECK PRINT C0LUMN COUNT 

0681 01423 11101426 BRU STN5 NOT s 0 

0682 01424 03101144 STA STNF COUNTaQ STORE NEXT STRING 

0683 01425 11101373 BRU. S-TN4.- A00RES5—Ui-STMF- A ND PRINT -- 

0684 01426 01101365 STN5 LAA DAC2 

0685 0142705000012 AHA slO INCREMENT COLUMN P01NTE8- 

0686 01430 03101365 STA DAC2 F0R NUMBERS 

0687 01431 11101363 BRU STN3 --- 

0688 01432 00000000 SYMB HLT EXIT F0R SYMB AND EXTR 

0689- 04 4 33 0110 1 4 61-LAA-8TM4-- SET U R R0UT - IN6 Fg R SYMB - 


0690 

0691 

0692 

0693 

0694 

0695- 

01434 03101442 

01435 00130105 SYM3 
01436 00000200 

01437 00130105 

01440 00001100 

01441 02077770 .. 

STA SYM2 

CEU 5,W 

DATA »200 

CEU -5,W. 

Data »iioo 

LRA a-fl .. 

CLEAR PRINT 

T0P 0F F0RM 

BUFFER 

AND FILL! BUFFER 

— 

0696 

01442 01501473 SYM2 

LAA SYMl+8,1 




0697 

01443 00170105 

A0P 5#B 

PRINT OUT . 

..SyNSULICSU., ... 

... 

0698 

01444 00001016 

LSL B 

0R 



0699 

01445. 00170105 

A0P 5,W 

PRINT 0UT . 

. ♦ EXTERNALS:. *. 

. . _. _ 

0700 

01446 00000026 

IBS 




07-01 

01447 11101442_ 

BRU SYM2__- 




0702 

01450 00130105 

CEU 5,W 




0703 

01451.00000400 

Data »4oo 

PRINT 



0704 

01452 11301432 

BRU# SYMB 

RETURN 







1 PAGE 0020 810A CROSS REFERENCE PROGRAM r*T, 3700058 

0705 01453 O0QOO0OQ EXTB HU - -- 

0706 01454 01101462 LAA EXT1 SET UP T0 PR I NT OUT ...EXTERNAL*.... 

0707 01455 03101442 STA S YM2 

0708 01456 01101453 LAA EXTR SET UP EXIT FOR EXTR 

0709- 01457- 03101432_SXA_S7HB---- 

0710 01460 11101435 BRU SYM3 BRANCH T0 SYM8 ROUTINE 

0711 01461 01501473 SYM4 LAA SYMl+8,1 

07^2 0i462 0i50l503 EXTl LAA EXT2*B#1 

0713 01463 00127-256 SYMl DATA • * ...SYMBOLICS. . . * • 

0713 01464 00127323 

0713- 01465 0015471 5__ 

0713 01466 00141317 

0713 01467 001463U 

0713 01470 00141723 

0713 01471 00127256 

0713 01472 00127240 

0714 Q4473 001272 56 EX72--0AJA—l ± -EX-tiM N A l -S ^ r—•-*--- 

0714 01474 00127305 

0714 01475 00154324 - — - - 

0714 01476 00142722 

0714 0-1477 £01-47301 - - - 

0714 01500 00146323 

.074* 01504 00127256--- 

0714 01502 00127240 

0715 01503 55401504 Lew ttA4* + l LOW CORE- .---- —_ 

0716 01504 70400000 ' 

ERRORS 0000 00000 __ ________ 








